﻿'{"Code":1,"Msg":"Success","Data":{"PageIndex":1,"PageSize":30,"TotalCount":1,"TotalPages":1,"HasPreviousPage":false,"HasNextPage":false,"Items":[{"id":"0","f_id":"0","gtin":"00768497313989","description_cn":null, "specification_cn": null, "brand_cn": null, "gpc": null, "gpc_name": null, "origin_cn": null, "origin_name": null, "codeNet": null, "codeNetContent": null, "suggested_retail_price": 0,"suggested_retail_price_unit":null, "txtKeyword": null, "picfilename": null, "realname": "INDUSTRIAS FACELA, S.A. DE C.V.","branch_code":null, "branch_name": null, "importer_name": null, "certificatefilename": null, "certificatestatus": 0,"isprivary":0,"isconfidentiality":0,"datasource":3}]}}
Public Class ImportProduct
    Inherits Sy.Data.JsonObject(Of ImportProduct)
    Public Property Data As ClsData
    Public Class ClsData
        Public Property Items As List(Of Item)
        'Public Property Items As Item()
        Public Class Item
            Public Property realname As String = ""
        End Class
    End Class
End Class
Public Class ClsResult
    Inherits Sy.Data.JsonObject(Of ClsResult)
    Public Property result As String
End Class
Public Module Test
    Public Function Test()
        Dim Json As String = "{}"
        '1
        Dim Obj = ClsResult.DeserializeSafety(Json)
        If Obj.IsNotNull() Then
            Dim name = Obj.result
        End If

        '2
        Try
            Dim Obj2 = ImportProduct.Deserialize(Json)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Module

